home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
bob13.arc
/
T.BOB
< prev
next >
Wrap
Text File
|
1991-10-01
|
225b
|
12 lines
main()
{
a = "ABCDabcd";
len = sizeof(a);
for (i = 0; i < len; ++i)
print(a[i],"\n");
for (i = 0; i < len; ++i)
if (a[i] >= 'a' && a[i] <= 'z')
a[i] = a[i] - 'a' + 'A';
print(a,"\n");
}